home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / tutor / pumps.arj / WHICHPUM.TXT < prev   
Text File  |  1993-11-11  |  2KB  |  61 lines
  1. \MOVE 'WHICH' TO CURRENT_TOPIC\MOVE 270 TO LASTY_WHERE
  2. \CALL SET_STANDARD_ONKEYS\MOVE 23 TO TUBE_COLORS
  3. \X OPEN_SCRN\ON KEY PG_UP\ON KEY PG_DN JUMP GOSUB5\X TAG15000\IF CURR_PG>15990 OR CURR_PG<15000\MOVE 15000 TO CURR_PG\ENDIF
  4. \MOVE 15100 TO CURR_PG
  5. \MOVE 040 TO Q\MOVE 220 TO R\MOVE 700 TO S\MOVE 594 TO T\MOVE 12 TO U\CALLM TUBE_BOX
  6. \MOVE 1 TO MODULE_FIVE
  7. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  8. \LOC 40,220\WID 660 DOT\OVER 0,A,44,23
  9. \"
  10.         BIG JOBS.
  11. \"
  12.         little jobs.
  13. \"
  14.         Submersible Pumps.
  15. \"
  16.         Parallel Pumps.
  17. \"
  18.         Serial Pumps.
  19. \"
  20.         Sterile Pumps.
  21. \"
  22. \LOC 120,220\WID 30 DOT
  23. \"
  24. 1.
  25. \"
  26. 2.
  27. \"
  28. 3.
  29. \"
  30. 4.
  31. \"
  32. 5.
  33. \"
  34. 6.
  35. \MOVE 'ASCOLOGO' TO PIC_FLNM\CALLM RD_PIC
  36. \MOVE '242919PW' TO FONT_FLNM\CALLM RD_FON
  37. \LOC 340,628\OVER 1,A,57,23\WIDTH 240 DOTS
  38.  Choose one...
  39. \IF DEMO_MODE='YES'
  40. \MOVE 750 TO Q\MOVE 300 TO R\MOVE 990 TO S\MOVE 416 TO T\MOVE 9 TO U\CALLM TUBE_BOX\LOCATE 750,300\OVER 1,A,60,23
  41. (These options are not available in this demo.)
  42. \ENDIF
  43. \CALLM WAITBOX
  44. \MOUSE FRAME=0,3 W=67,270,67,557 A=0,1 L=47,LASTY_WHERE R=-1\MOVE E TO CURR_SUBLEVEL\MOVE CURR_SUBLEVEL TO LASTY_WHERE
  45. \X GOSUB5\CALLM WAITOFF
  46. \IF CURR_SUBLEVEL<300\MOVE 'WHI_BIGJ' TO TEXT_FLNM\ELSE
  47. \IF CURR_SUBLEVEL<358\MOVE 'WHI_LITT' TO TEXT_FLNM\ELSE
  48. \IF CURR_SUBLEVEL<416\MOVE 'WHI_UNDE' TO TEXT_FLNM\ELSE
  49. \IF CURR_SUBLEVEL<474\MOVE 'WHI_WEIG' TO TEXT_FLNM\ELSE
  50. \IF CURR_SUBLEVEL<532\MOVE 'WHI_OILP' TO TEXT_FLNM\ELSE
  51. \MOVE 'WHI_COWP' TO TEXT_FLNM\ENDIF
  52. \MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF\CALLM NEW_TUBE_BOX
  53. \IF DEMO_MODE='YES'\CALLM DEMO_MSG\JUMP MAINPAGE\ENDIF
  54. \CALLM RD_TXT\JUMP MAINPAGE
  55. \X  MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
  56. \X ALT_QUITED\ON ERROR\END
  57. \X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
  58. \X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
  59. \X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT
  60.  
  61.